(ws-search): Fix malformed character constants.

diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index d0fb619398f7f3514c9243a5411d076016227a75..a822ba13c04e8983e3e15e1166babcea6b9b0233 100644 (file)
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -646,12 +646,12 @@ in ws-last-errormessage for recovery with C-q w."
   (message "Forward (f) or backward (b)")
   (let ((direction
         (read-char)))
-    (cond ((equal (upcase direction) \070)
+    (cond ((equal (upcase direction) ?F)
           (setq ws-search-string string)
           (setq ws-search-direction t)
           (setq ws-last-cursorposition (point-marker))
           (search-forward string))
-         ((equal (upcase direction) \066)
+         ((equal (upcase direction) ?B)
           (setq ws-search-string string)
           (setq ws-search-direction nil)
           (setq ws-last-cursorposition (point-marker))